home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1996 September & October / Amiga-CD 1996 #9-10.iso / demos / scanquix3-demo / steuerung < prev    next >
AmigaDOS Script File  |  1996-07-22  |  3KB  |  133 lines
  1. .key param
  2. .bra [
  3. .ket ]
  4. . Skript für Verwaltungsaufgaben
  5. . © MagnaMedia Verlag AG, AMIGA-Magazin
  6. failat >nil: 21
  7. if "[param]" EQ "info"
  8.     set vinfo 1
  9. endif
  10. if "[param]" EQ "copy"
  11.     set vcopy 1
  12. endif
  13. if "[param]" EQ "assign"
  14.     set vassign 1
  15. endif
  16. if "[param]" EQ "unassign"
  17.     set vunassign 1
  18. endif
  19. if "[param]" EQ "start"
  20.     set vassign 1
  21.     set vstart 1
  22.     set vunassign 1
  23. endif
  24. set binfo        1
  25. set bcopy        1
  26. set bassign      1
  27. set bunassign    1
  28. set bstart       1
  29.  
  30.     echo >t:tmpsteuerung ":c/requestchoice20 >env:AmigaCD/req20erg *"Steuerung*" *"Bitte wählen Sie*"" NOLINE
  31.     set nummer 0
  32.     if $binfo EQ 1
  33.          echo >>t:tmpsteuerung " Info" NOLINE
  34.          set nummer `eval $nummer + 1`
  35.          set ninfo $nummer
  36.     endif
  37.     if $bcopy EQ 1
  38.          echo >>t:tmpsteuerung " Kopieren" NOLINE
  39.          set nummer `eval $nummer + 1`
  40.          set ncopy $nummer
  41.     endif
  42.     if $bassign EQ 1
  43.          echo >>t:tmpsteuerung " Assign" NOLINE
  44.          set nummer `eval $nummer + 1`
  45.          set nassign $nummer
  46.     endif
  47.     if $bunassign EQ 1
  48.          echo >>t:tmpsteuerung " Unassign" NOLINE
  49.          set nummer `eval $nummer + 1`
  50.          set nunassign $nummer
  51.     endif
  52.     if $bstart EQ 1
  53.          echo >>t:tmpsteuerung " Start" NOLINE
  54.          set nummer `eval $nummer + 1`
  55.          set nstart $nummer
  56.     endif
  57.     if "[param]" EQ ""
  58.         echo >>t:tmpsteuerung " Ende" NOLINE
  59.         execute >nil: t:tmpsteuerung
  60.         delete >nil: t:tmpsteuerung
  61.         set reqerg[$$] `getenv env:AmigaCD/req20erg`
  62.         if $reqerg[$$] EQ 0
  63.             skip Ende
  64.         endif
  65.     endif
  66.     if $reqerg[$$] EQ $ninfo
  67.         set vinfo 1
  68.     endif
  69.     if $reqerg[$$] EQ $ncopy
  70.         set vcopy 1
  71.     endif
  72.     if $reqerg[$$] EQ $nassign
  73.         set vassign 1
  74.     endif
  75.     if $reqerg[$$] EQ $nunassign
  76.         set vunassign 1
  77.     endif
  78.     if $reqerg[$$] EQ $nstart
  79.         set vassign 1
  80.         set vstart 1
  81.         set vunassign 1
  82.     endif
  83. endif
  84.  
  85. if $vinfo EQ 1
  86. ;>>>>>>>> Hier Infotext eintragen
  87.     :c/Metatool :Demos/ScanQuix3-Demo/ScanQuix.guide FT=GUIDE
  88. endif
  89. if $vassign EQ 1
  90. ;>>>>>>>> Hier steht das Assign
  91.     Assign >nil: libs: :Demos/ScanQuix3-Demo/libs add
  92.     Assign >nil: devs: :Demos/ScanQuix3-Demo/devs add
  93.     if $vstart NOT EQ 1
  94.         :c/requestchoice20 >nil: Information "Assign angelegt!" OK
  95.     endif
  96. endif
  97. if $vstart EQ 1
  98. ;>>>>>>>> Hier steht das Startprogramm
  99.     :Demos/ScanQuix3-Demo/ScanQuix
  100. endif
  101. if $vunassign EQ 1
  102. ;>>>>>>>> Hier steht das Unassign
  103.     Assign >nil: libs: :Demos/ScanQuix3-Demo/libs remove
  104.     Assign >nil: devs: :Demos/ScanQuix3-Demo/devs remove
  105.     if $vstart NOT EQ 1
  106.         :c/requestchoice20 >nil: Information "Assign entfernt!" OK
  107.     endif
  108. endif
  109. if $vcopy EQ 1
  110.     execute :c/Verzeichniskopieren ":Demos/ScanQuix3-Demo/" "ScanQuix3-Demo" 472064
  111. endif
  112.  
  113. unset binfo
  114. unset vinfo
  115. unset ninfo
  116. unset bassign
  117. unset bunassign
  118. unset vassign
  119. unset vunassign
  120. unset nassign
  121. unset nunassign
  122. unset bstart
  123. unset vstart
  124. unset nstart
  125. unset bcopy
  126. unset vcopy
  127. unset ncopy
  128. if "[param]" EQ ""
  129.     execute ":Demos/ScanQuix3-Demo/Steuerung"
  130. endif
  131. LAB Ende
  132. unsetenv reqerg[$$]
  133.